home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / MOUSE.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  428b  |  36 lines
  1. $include "regnames.inc"
  2.  
  3. CLS
  4. REG %AX,&H3
  5.  
  6. CALL INTERRUPT &H10
  7. color 3
  8. x$=string$(32000,chr$(176))
  9. ?x$;
  10.  
  11. reg %ax,0
  12. call interrupt &H33
  13.  
  14. reg %ax,8
  15. reg %cx,0
  16. reg %dx,24*8
  17. call interrupt &H33
  18.  
  19. reg %ax,7
  20. reg %cx,0
  21. reg %dx,79*8
  22. call interrupt &H33
  23.  
  24. REG %AX,1
  25. call interrupt &H33
  26.  
  27. while inkey$=""
  28.  reg %ax,3
  29.  call interrupt &H33
  30.  locate 1,1
  31.  x%=reg(%cx)
  32.  y%=reg(%dx)
  33.  x%=x%/8%
  34.  y%=y%/8%
  35.  ?x%,y%
  36. wend